Collection of Tools & Utilities/Collection of Tools and Utilities.iso/graphic/fgl303a.zip/FGLIGHT.ARJ/INTRFACE.FOR

Text File | 1993-09-30 | 24KB | 931 lines

C*****************************************************************************
C
C  INTRFACE.FOR
C
C  This file contains the FORTRAN interface statements for Fastgraph V3.03.
C
C  Copyright (c) 1991-1993 Ted Gruber Software.  All rights reserved.
C
C*****************************************************************************

      INTERFACE TO INTEGER*2 FUNCTION FG_ALLOCATE[C](PAGE)
      INTEGER*2 PAGE
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_ALLOCCMS[C](PAGE)
      INTEGER*2 PAGE
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_ALLOCEMS[C](PAGE)
      INTEGER*2 PAGE
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_ALLOCXMS[C](PAGE)
      INTEGER*2 PAGE
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_AUTOMODE[C]()
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_BESTMODE[C](HORIZ,VERT,PAGES)
      INTEGER*2 HORIZ,VERT,PAGES
      END

      INTERFACE TO SUBROUTINE FG_BOX[C](MINX,MAXX,MINY,MAXY)
      INTEGER*2 MINX,MINY,MAXX,MAXY
      END

      INTERFACE TO SUBROUTINE FG_BOXDEPTH[C](XDEPTH,YDEPTH)
      INTEGER*2 XDEPTH,YDEPTH
      END

      INTERFACE TO SUBROUTINE FG_BOXW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO SUBROUTINE FG_BOXX[C](MINX,MAXX,MINY,MAXY)
      INTEGER*2 MINX,MINY,MAXX,MAXY
      END

      INTERFACE TO SUBROUTINE FG_BOXXW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_BUTTON[C](N)
      INTEGER*2 N
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_CAPSLOCK[C]()
      END

      INTERFACE TO SUBROUTINE FG_CHGATTR[C](N)
      INTEGER*2 N
      END

      INTERFACE TO SUBROUTINE FG_CHGTEXT[C](STRING,N)
      CHARACTER STRING[REFERENCE]
      INTEGER*2 N
      END

      INTERFACE TO SUBROUTINE FG_CIRCLE[C](RADIUS)
      INTEGER*2 RADIUS
      END

      INTERFACE TO SUBROUTINE FG_CIRCLEF[C](RADIUS)
      INTEGER*2 RADIUS
      END

      INTERFACE TO SUBROUTINE FG_CIRCLEFW[C](RADIUS)
      REAL*8 RADIUS
      END

      INTERFACE TO SUBROUTINE FG_CIRCLEW[C](RADIUS)
      REAL*8 RADIUS
      END

      INTERFACE TO SUBROUTINE FG_CLIPMASK[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_CLPIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_CLPRECT[C](MINX,MAXX,MINY,MAXY)
      INTEGER*2 MINX,MINY,MAXX,MAXY
      END

      INTERFACE TO SUBROUTINE FG_CLPRECTW[C](XMIN,XMAX,YMIN,YMAX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      END

      INTERFACE TO SUBROUTINE FG_COPYPAGE[C](SOURCE,DEST)
      INTEGER*2 SOURCE,DEST
      END

      INTERFACE TO SUBROUTINE FG_CURSOR[C](STATE)
      INTEGER*2 STATE
      END

      INTERFACE TO SUBROUTINE FG_DASH[C](IX,IY,PATTERN)
      INTEGER*2 IX,IY,PATTERN
      END

      INTERFACE TO SUBROUTINE FG_DASHREL[C](IX,IY,PATTERN)
      INTEGER*2 IX,IY,PATTERN
      END

      INTERFACE TO SUBROUTINE FG_DASHRW[C](X,Y,PATTERN)
      REAL*8 X,Y
      INTEGER*2 PATTERN
      END

      INTERFACE TO SUBROUTINE FG_DASHW[C](X,Y,PATTERN)
      REAL*8 X,Y
      INTEGER*2 PATTERN
      END

      INTERFACE TO SUBROUTINE FG_DEFCOLOR[C](NUMBER,VALUE)
      INTEGER*2 NUMBER,VALUE
      END

      INTERFACE TO SUBROUTINE FG_DEFPAGES[C](SOURCE,DEST)
      INTEGER*2 SOURCE,DEST
      END

      INTERFACE TO SUBROUTINE FG_DISPFILE[C](FILENAME,WIDTH,PACKED)
      CHARACTER FILENAME[REFERENCE]
      INTEGER*2 WIDTH,PACKED
      END

      INTERFACE TO SUBROUTINE FG_DISPLAY[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_DISPLAYP[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_DRAW[C](IX,IY)
      INTEGER*2 IX,IY
      END

      INTERFACE TO SUBROUTINE FG_DRAWMAP[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_DRAWMASK[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_DRAWREL[C](IX,IY)
      INTEGER*2 IX,IY
      END

      INTERFACE TO SUBROUTINE FG_DRAWRELX[C](IX,IY)
      INTEGER*2 IX,IY
      END

      INTERFACE TO SUBROUTINE FG_DRAWRW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_DRAWRXW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_DRAWW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_DRAWX[C](IX,IY)
      INTEGER*2 IX,IY
      END

      INTERFACE TO SUBROUTINE FG_DRAWXW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_DRECT[C](MINX,MAXX,MINY,MAXY,MATRIX)
      INTEGER*2 MINX,MINY,MAXX,MAXY
      INTEGER*1 MATRIX[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_DRECTW[C](XMIN,XMAX,YMIN,YMAX,MATRIX)
      REAL*8 XMIN,XMAX,YMIN,YMAX
      INTEGER*1 MATRIX[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_DRWIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 WIDTH,HEIGHT
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_EGACHECK[C]()
      END

      INTERFACE TO SUBROUTINE FG_ELLIPSE[C](HORIZ,VERT)
      INTEGER*2 HORIZ,VERT
      END

      INTERFACE TO SUBROUTINE FG_ELLIPSEF[C](HORIZ,VERT)
      INTEGER*2 HORIZ,VERT
      END

      INTERFACE TO SUBROUTINE FG_ELLIPSEW[C](HORIZ,VERT)
      REAL*8 HORIZ,VERT
      END

      INTERFACE TO SUBROUTINE FG_ELLIPSFW[C](HORIZ,VERT)
      REAL*8 HORIZ,VERT
      END

      INTERFACE TO SUBROUTINE FG_ERASE[C]()
      END

      INTERFACE TO SUBROUTINE FG_FADEIN[C](DELAY)
      INTEGER*2 DELAY
      END

      INTERFACE TO SUBROUTINE FG_FADEOUT[C](DELAY)
      INTEGER*2 DELAY
      END

      INTERFACE TO SUBROUTINE FG_FILLPAGE[C]()
      END

      INTERFACE TO SUBROUTINE FG_FLIPMASK[C](BITMAP,RUNS,WIDTH)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 RUNS,WIDTH
      END

      INTERFACE TO SUBROUTINE FG_FLOOD[C](IX,IY)
      INTEGER*2 IX,IY
      END

      INTERFACE TO SUBROUTINE FG_FLOODW[C](X,Y)
      REAL*8 X,Y
      END

      INTERFACE TO SUBROUTINE FG_FLPIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 WIDTH,HEIGHT
      END

      INTERFACE TO SUBROUTINE FG_FONTSIZE[C](SIZE)
      INTEGER*2 SIZE
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_FREEPAGE[C](PAGE)
      INTEGER*2 PAGE
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_GETADDR[C]()
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_GETATTR[C](ROW,COLUMN)
      INTEGER*2 ROW,COLUMN
      END

      INTERFACE TO SUBROUTINE FG_GETBLOCK[C](BUFFER,MINX,MAXX,MINY,MAXY)
      INTEGER*1 BUFFER[FAR,REFERENCE]
      INTEGER*2 MINX,MAXX,MINY,MAXY
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_GETCHAR[C](ROW,COLUMN)
      INTEGER*2 ROW,COLUMN
      END

      INTERFACE TO INTEGER*4 FUNCTION FG_GETCLOCK[C]()
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_GETCOLOR[C]()
      END

      INTERFACE TO SUBROUTINE FG_GETDACS[C](START,COUNT,VALUES)
      INTEGER*2 START,COUNT
      INTEGER*1 VALUES[REFERENCE]
      END

      INTERFACE TO SUBROUTINE FG_GETENTRY[C](NUMBER,ADDR,TYPE)
      INTEGER*2 NUMBER
      INTEGER*2 ADDR[REFERENCE]
      INTEGER*2 TYPE[REFERENCE]
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_GETHPAGE[C]()
      END

      INTERFACE TO SUBROUTINE FG_GETIMAGE[C](BITMAP,WIDTH,HEIGHT)
      INTEGER*1 BITMAP[REFERENCE]
      INTEGER*2 WIDTH,HEIGHT
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_GETINDEX[C](INDEX)
      INTEGER*2 INDEX
      END

      INTERFACE TO SUBROUTINE FG_GETKEY[C](KEY,AUX)
      INTEGER*1 KEY[REFERENCE]
      INTEGER*1 AUX[REFERENCE]
      END

      INTERFACE TO INTEGER*2 FUNCTION FG_GETLINES[C]()
      END

      INTERFACE TO SUBROUTINE FG_GETMAP[C](BITMAP,WIDTH,HEIG